home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 42 / Amiga Format AFCD42 (Issue 126, Aug 1999).iso / -serious- / programming / arexx / rxcmanager / examples / get.rexx < prev    next >
OS/2 REXX Batch file  |  1999-05-25  |  285b  |  20 lines
  1. /* */
  2.  
  3. l="rxcmanager.library";if ~show("L",l) then;if ~addlib(l,0,-30) then exit
  4.  
  5. call CMStart()
  6. num = CMGetEntry("ALL MULTISELECT","U")
  7. call CMClose()
  8.  
  9. if num=0 then do
  10.     say "No user entry selected"
  11.     exit
  12. end
  13.  
  14. say "Selected:" num
  15. do i=0 to num-1
  16.     say
  17.     say "Name:  " u.i.Name
  18.     say
  19. end
  20.